home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 142 / 142side4.d64 / b.anth-flag iv (.txt) < prev    next >
Commodore BASIC  |  2022-08-30  |  5KB  |  171 lines
  1. 10 poke52,52:poke56,52:clr:poke53281,0:poke53280,0
  2. 20 dv=peek(186):ifdv<8thendv=8
  3. 30 print"[147]":gosub60000
  4. 40 dimw$(110),b(15),s$(17),m$(17),t$(17),mc(17),br(17)
  5. 50 unpack=13824:hg=13827:sr=52480:sq=52486:g=49153:ip=13312
  6. 52 sys57812"anth 3400-3747",dv,0:poke780,0:poke781,0:poke782,52:sys65493
  7. 54 sys57812"anth/flag.shp",dv,0:poke780,0:poke781,0:poke782,64:sys65493
  8. 56 print"[147]":poke251,64:poke252,96:poke253,80:sysun
  9. 58 poke252,96:poke253,80:syshg
  10. 60 sys57812"anth font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
  11. 80 sys57812"anth c000-cf5f",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  12. 90 fs$="[129][193][206][212][200][197][205][211] [193][206][196] [198][204][193][199][211]"
  13. 100 sp$="                                        "
  14. 110 syssr,96,76,56
  15. 120 tp$="[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  16. 130 bt$="[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  17. 140 fori=0to15:reads$:s$(i)=s$+".shp":m$(i)=s$+".mus":t$(i)=s$+".txt"
  18. 150 readmc(i),br(i):next
  19. 151 datafrance,0,5
  20. 152 datagabon,0,14
  21. 153 datagambia,0,14
  22. 154 datagermany,0,5
  23. 155 dataghana,0,14
  24. 156 datagreatbritain,0,5
  25. 157 datagreece,0,14
  26. 158 datagreenland,0,5
  27. 159 dataguatemala,0,5
  28. 160 dataguineabissau,0,14
  29. 161 dataguyana,0,14
  30. 162 dataguinea 2,0,14
  31. 163 datagrenada,1,5
  32. 164 datahaiti,0,5
  33. 165 datahonduras,0,5
  34. 166 datahungary,0,14
  35. 200 syshg
  36. 210 goto600
  37. 220 :
  38. 230 :rem box
  39. 240 :
  40. 250 poke214,y:print
  41. 260 printtab(x)"[176]"left$(tp$,xx)"[174]"
  42. 262 printtab(x)"[170]["left$(sp$,xx-2)"][180]"
  43. 270 forii=2toyy:printtab(x)"[170]"left$(sp$,xx)"[180]":next
  44. 272 printtab(x+1)"[145]<"tab(x+xx)">"
  45. 280 printtab(x)"[173]"left$(bt$,xx)"[189]"
  46. 290 return
  47. 300 :
  48. 310 :rem load pic/mus/txt
  49. 320 :
  50. 330 poke214,20:print:printtab(14)"[155][204]oading [208]icture[145]"
  51. 340 sys57812s$(s),dv,0:poke780,0:poke781,0:poke782,64:sys65493
  52. 350 printtab(22)"[205]usic  [145]"
  53. 360 sys57812m$(s),dv,0:poke780,0:poke781,0:poke782,128:sys65493
  54. 370 printtab(22)"[215]ords  [145]"
  55. 380 fori=0to99:w$(i)="":next
  56. 390 sys13312,t$(s),dv
  57. 400 h=peek(252)*256+peek(251)
  58. 410 w$(0)=mid$(w$(0),3)
  59. 420 printtab(14)"               "
  60. 430 return
  61. 440 :
  62. 450 :rem display/play
  63. 460 :
  64. 470 poke251,64:poke252,96:poke253,76:sysun
  65. 480 poke252,96:poke253,76:syshg
  66. 490 sys49615:poke781,0:poke782,128:sys49664:poke49152,7:mu=1
  67. 500 return
  68. 510 :
  69. 520 :rem turn off pic/mus
  70. 530 :
  71. 540 poke49152,0:poke54276,0:poke54283,0:poke54290,0:sys49897:sys49935:mu=0
  72. 550 syshg
  73. 560 return
  74. 570 :
  75. 580 :rem loop
  76. 590 :
  77. 600 s=1
  78. 610 print"[147]":poke53272,31
  79. 620 gosub880
  80. 622 poke214,19:print
  81. 624 iff1thenprinttab(4)"space [154] next song  q [154] quit to menu":goto628
  82. 626 printtab(12)"space [154] stop song
  83. 628 [141]330
  84. 630 n[178]0
  85. 640 [141]470:[151]53280,br(s)
  86. 650 [158]sq[171]3,"stopopen"
  87. 660 [139]mc(s)[167][158]sq[171]3,"open"
  88. 670 [129]i[178]0[164]4:[158]sq,1,20[170]i,[200](sp$,38):[130]
  89. 680 [129]i[178]0[164]4
  90. 690 [139][195](w$(n[170]i))[179]3[167]710
  91. 700 [158]sq,20[171][181](([195](w$(n[170]i))[173]2)),20[170]i,w$(n[170]i)
  92. 710 [130]
  93. 720 [158]sq[171]3,"wait"
  94. 730 [139][194](49152)[179][177]7[167]a$[178]" ":[137]830
  95. 740 jv[178][194](56320):[161]a$:[139]a$[178]""[175](jv[178]127)[167]730
  96. 742 [139]f1[167][139]a$[178]"q"[167]f1[178]0:g[178]0:[141]540:[137]620
  97. 750 [139]a$[179][177]""[175](jv[179][177]126)[167]790
  98. 760 [139]n[177][178]h[171]5[167]730
  99. 770 n[178]n[170]5
  100. 780 [137]660
  101. 790 [139]a$[179][177]""[175](jv[179][177]125)[167]830
  102. 800 [139]n[179]2[167]730
  103. 810 n[178]n[171]5
  104. 820 [137]660
  105. 830 [139]a$[178]" "[176]jv[179]112[167][141]540:s[178](s[170]1)[175]15:[137]620
  106. 840 [137]730
  107. 850 :
  108. 860 :[143] menu screen
  109. 870 :
  110. 880 [151]53281,0:[151]53280,0
  111. 882 [139]s[178]0[167]s[178]1:f1[178]0:[137]1050
  112. 890 [139](g[178]1)[175](mc(s[171]1)[178]0)[175](f1[178]1)[167]1050
  113. 900 [139](g[178]1)[175](mc(s[171]1)[178]0)[175](f1[178]0)[167]1050
  114. 910 g[178]1:[153]"load":x[178]2:xx[178]35:y[178]0:yy[178]21:[141]250
  115. 920 [153]"for"[163]10)"ortantan^           ortantan^
  116. 930 printtab(10)"[171][192][192][179][158]nthems and[129] [171][192][179][158]lags
  117. 940 [153][163]10)"forexp  /tantantantantantan    tanexp
  118. 950 printtab(13)"[145][192][192][192][192][174]  [176]
  119. 960 [153][163]13)"sysof thefor (NULL)or^(NULL)sysorld
  120. 970 printtab(13)"[129]       [173][189][173][189]
  121. 972 [153]"verify(NULL)close(NULL)close"[163]33)"waitverify(NULL)close(NULL)close"
  122. 974 [153]"verify(NULL)opencloselogclose"[163]33)"waitverify(NULL)closelogclose"
  123. 976 [153]"verify(NULL)"[163]33)"(NULL)"
  124. 978 [153]"verify(NULL)"[163]33)"(NULL)"
  125. 980 [151]214,8:[153]
  126. 990 [129]i[178]0[164]7:[153][163]6)""[199](i[170]65);
  127. 1000 [153][163]9)"cont"[200](s$(i),[195](s$(i))[171]4);
  128. 1010 [153][163]22)""[199](i[170]73);
  129. 1020 [153][163]25)"cont"[200](s$(i[170]8),[195](s$(i[170]8))[171]4):[130]
  130. 1030 [153][163]12)"r  cont'round the world
  131. 1040 printtab(12)"q  [154]quit
  132. 1050 [139]f1[167][161]a$:[139]a$[178]""[167][142]
  133. 1052 [151]214,19:[153]:[153]"                                  "
  134. 1060 [161]a$:[139]a$[178]""[167]1060
  135. 1070 [139]a$[179][177]"r"[167]1100
  136. 1080 f1[178]1:s[178]0
  137. 1090 [142]
  138. 1100 [139]a$[178]"q"[167][141]39900:[137]1040
  139. 1110 [139]a$[179]"a"[176]a$[177]"p"[167]1060
  140. 1120 s[178][198](a$)[171]65:f1[178]0
  141. 1130 [142]
  142. 10000 d[178][194](186):n$[178]"b.anth-flag iv":[159]15,d,15,"s0:"[170]n$:[160]15:[148]n$,d:[128]
  143. 39900 [151]214,18:[153]:[153][163]8)"contquit? are you sure? (ycont/ncont)on"
  144. 39910 [161]a$:[139]a$[178]""[167]39910
  145. 39920 [139]a$[178]"y"[167]40000
  146. 39930 [153][163]8)"cont                             on"
  147. 39940 [142]
  148. 40000 [129]i[178]0[164]21:[151]828[170]i,8[170]i:[130]
  149. 40010 [139]dv[179]8[176]dv[177]29[176]dv[178]8[167]40030
  150. 40020 a[178][194](828):b[178][194](828[170]dv[171]8):[151]828,b:[151]828[170]dv[171]8,a
  151. 40030 a$[178]"presenter":[141]40040:a$[178]"hello connect"
  152. 40040 [129]j[178]8[164]29:i[178][194](828[170]j[171]8):[139]i[178]14[167][130]
  153. 40050 [160]2:[159]2,i,2:[160]2:[139]st[167]40070
  154. 40060 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40090
  155. 40070 [130]:[139]a$[178]"presenter"[167][142]
  156. 40080 [153]"load":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128]
  157. 40090 a$[178]"hello connect":q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
  158. 40100 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
  159. 40110 [153]"p(NULL)53272,23:run:":[151]631,13:[151]632,13:[151]198,2:[128]
  160. 60000 [153]"load":z$[178]" print#                                      ":[151]214,10:[153]
  161. 60010 [153]" listfrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefre":[129]i[178]0[164]9:[153]z$:[130]
  162. 60020 [153]" pokeposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposprint#"
  163. 60030 z$(0)[178]"atn(NULL)(NULL)left$val(NULL)(NULL) atn(NULL)str$ asc(NULL)atnchr$(NULL) (NULL)asc (NULL)left$val (NULL)(NULL)(NULL)(NULL)str$"
  164. 60032 z$(1)[178]"by (NULL)arquis, left$arned and (NULL)ucker"
  165. 60040 z$(2)[178]"(len) 1995 by mid$ & asc (NULL)ublishing, right$nc.
  166. 60050 z$(4)="[212]his program is not shareware
  167. 60070 z$(5)[178]"or in the public domain."
  168. 60080 z$(7)[178]"1-800-594-3370 or 1-318-221-8718"
  169. 60090 [151]214,12:[153]
  170. 60100 [129]i[178]0[164]7:[153][163]20[171]([195](z$(i))[173]2))""z$(i):[130]:[142]
  171.